fb_waterzone <- function(Genus = NA, Species = NA, server = 'http://www.fishbase.tw/')
  {
require("XML")
require("stringr")
require('RCurl')
	url <- NA;
  if (is.na(Genus) | is.na(Species))
		{
		print("The Genus and Species are needed!!")
		}
	if (!is.na(Genus) & !is.na(Species)) 
		{
		url <- paste(server, "Summary/speciesSummary.php?GenusName=",Genus,"&SpeciesName=",Species, sep = "")
		}
  txt <- readLines(url) 
  txt <- htmlTreeParse(txt, error=function(...){}, useInternalNodes = T)
  g <- xpathSApply(txt, "//td/div/span", function(x) xmlValue(x)) 
 
  g2 <- head(grep("\tMarine;", g, value=T))
  g3 <- toString(str_replace_all(str_replace_all(str_replace_all(g2, "\t", ""), "\n", ""), "\r", ""))
  g4 <- data.frame(Genus=Genus, Specie=Species, wz = g3)
  return(g4)
  }